home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / COLORBAR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  43 lines
  1. 100  '***********************************************
  2. 110  '**  TELEVISION OR MONITOR ALIGNMENT PROGRAM  **
  3. 120  '***********************************************
  4. 130  '
  5. 140  '** PART #1      REGISTRATION
  6. 150  SCREEN 2,0 : KEY OFF : CLS
  7. 160  OUT 980,2 : OUT 981,43
  8. 170  LINE (0,0)-(639,0)
  9. 180  FOR X = 63 TO 639 STEP 64
  10. 190  LINE (X,0)-(X,199)
  11. 200  NEXT
  12. 210  LINE (0,0)-(O,199)
  13. 220  FOR Y = 19 TO 199 STEP 20
  14. 230  LINE (0,Y)-(639,Y)
  15. 240  NEXT
  16. 250  LOCATE 24,18
  17. 260  PRINT "THE LINES SHOULD BE WHITE AND EVENLY SPACED";
  18. 270  '
  19. 280  '**  PART #2     PURITY
  20. 290  A$ = INKEY$ : IF A$ = "" THEN 290
  21. 300  SCREEN 0,1 : WIDTH 40
  22. 305  OUT 980,2 : OUT 981,43
  23. 310  COLOR 4,4,4 : CLS : COLOR 7,0 : LOCATE 10,9 : PRINT "RED     ";
  24. 320  INPUT A$
  25. 330  COLOR 2,2,2 : CLS : COLOR 7,0 : LOCATE 10,9 : PRINT "GREEN   ";
  26. 340  INPUT A$
  27. 350  COLOR 1,1,1 : CLS : COLOR 7,0 : LOCATE 10,9 : PRINT "BLUE    ";
  28. 360  INPUT A$
  29. 370  '
  30. 380  '**  PART #3     COLOR BARS
  31. 390  SCREEN 0,1
  32. 400  COLOR 0,0,0 : CLS
  33. 410  FOR X = 1 TO 24
  34. 420  FOR Y = 0 TO 7
  35. 430  COLOR Y
  36. 440  FOR Z = 1 TO 5
  37. 450  PRINT CHR$(219);
  38. 460  NEXT : NEXT  : NEXT
  39. 470  COLOR 7,0,0
  40. 480  LOCATE 25,1 : PRINT "BLA  BLU  GR   CY   RED  MAG  BR   WH";
  41. 490  LOCATE 1,1 : INPUT A$
  42. 500  SCREEN 2 : OUT 980,2 : OUT 981,43
  43.